


function Main( x )

   DbUseArea( nil, nil, "test.dbf" )

   FieldPut( 1, "zzz" )

   MsgInfo( FieldGet( 1 ) )

   DbCloseArea()

return nil

